PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Business/Check Stuff/CheckWriter/Check Register/background_2569.txt

Text File | 1988-04-19 | 38.4 KB | 1,897 lines

-- background: 2569 from stack: in
-- bmap block id: 3536
-- flags: 4000
-- background id: 0
-- name: CheckReg
----- HyperTalk script -----
-- openField -- Catch any openField messages that are not processed
-- by date fields and reset saveDate.

on openField
  global saveDate
  put empty into saveDate
end openField

-- calculate -- method to calculate balances on sheet.

on calculate
  global FirstRow,NbrCols,LastRow,PayCol,DepCol,BalCol
  set numberFormat to "0.00"
  if param(1) = empty then
    get ((the number of the target) - FirstRow) div NbrCols
    put FirstRow + it * NbrCols into row
  else
    put param(1) into row
  end if
  -- Search back to find the last balance field.
  repeat
    put bkgnd field (row - NbrCols + BalCol) into bal
    if bal is not empty then exit repeat
    subtract NbrCols from row
  end repeat
  -- Propagate the new balance to all subsequent rows.
  repeat
    repeat
      put bkgnd field (row + PayCol) into pay
      put bkgnd field (row + DepCol) into dep
      if pay is not empty or dep is not empty then
        subtract pay from bal
        add dep to bal
        put bal into bkgnd field (row + BalCol)
      else
        put empty into bkgnd field (row + BalCol)
      end if
      add NbrCols to row
      if row > LastRow then exit repeat
    end repeat
    if the number of this card is the number of cards then exit repeat
    go to next card
    put bal into bkgnd field BalFwd
    put FirstRow into row
  end repeat
  put "$" & bal into card field "Balance" of first card
end calculate

-- newCard -- Carry the balance  & year forward

on newCard
  global FirstRow,NbrCols,LastRow,PayCol,DepCol,BalCol
  -- Go back to old card.
  set lockScreen to true
  push this card
  go to previous card
  -- Deal with balance.
  set numberFormat to "0.00"
  put LastRow into row
  repeat
    put bkgnd field (row + BalCol) into bal
    if bal is not empty then exit repeat
    subtract NbrCols from row
  end repeat
  -- Deal with year.
  set numberFormat to "0"
  put LastRow into row
  repeat
    get bkgnd field (row + 1)
    if it is not empty then exit repeat
    subtract NbrCols from row
  end repeat
  put char 2 to 5 of last item of it into year
  -- Now fix up new card.
  pop card
  set lockScreen to false
  put bal into bkgnd field "BalFwd"
  put year into bkgnd field "Year"
end newCard

-- sortFields -- Manually invoked utility handler to sort all
-- background fields in position order.

on sortFields
  -- Build a list of field IDs and location indices.
  put "sortFields -- Building list..."
  put the number of background fields into nbr_fields
  repeat with i = 1 to nbr_fields
    get location of field i
    get (item 1 of it) + (item 2 of it) * 512
    put (last word of the short name of field i) && it & "," after field_list
  end repeat
  delete last char of field_list
  -- Sort the list by location, sorting the actual fields in parallel.
  put "sortFields -- Sorting list..., i = ?, j = ?"
  choose field tool
  repeat with i = 2 to nbr_fields
    put i into last word of item 2 of msg
    repeat with j = nbr_fields down to i
      put j into last word of item 3 of msg
      if word 2 of item j of field_list < word 2 of item j - 1 of field_list then
        -- Send the closer field farther.
        get loc of field id (word 1 of item j of field_list)
        click at it
        doMenu "Send Farther"
        -- Adjust our list accordingly.
        put item j of field_list & "," & item j - 1 of field_list into item j - 1 to j of field_list
      end if
    end repeat
  end repeat
  choose browse tool
  put "sortFields -- All done."
  beep 6
end sortFields

-- postCheck -- Handler called from Check Writer to post entered
-- checks to the register.

on postCheck
  global LastRow,NbrCols,FirstRow,saveRow
  global nbr,date,payTo,for,amount
  -- Search for the last empty row.  If none, create a new page.
  if saveRow is empty then
    put LastRow into row
    repeat
      if not isempty(row) then
        add NbrCols to row
        exit repeat
      end if
      if row < FirstRow then
        put FirstRow into row
        exit repeat
      end if
      subtract NbrCols from row
    end repeat
  else
    put saveRow + NbrCols into row
  end if
  if row > LastRow then
    doMenu "New Card"
    put FirstRow into row
  end if
  -- Post a check
  put nbr into bkgnd field (row)
  put date into bkgnd field (row + 1)
  put payTo into bkgnd field (row + 2)
  put for into line 2 of bkgnd field (row + 2)
  put amount into bkgnd field (row + 3)
  send "calculate" && row
  put row into saveRow
end postCheck

-- isEmpty -- test for empty row

function isEmpty row
global NbrCols
if row < 0 then put row
repeat with i = 0 to NbrCols - 1
  if bkgnd field (row + i) is not empty then return false
end repeat
return true
end isEmpty

-- doDate -- Fix up the date field after it has been entered.  Allows
-- user to enter the date as mm/dd (for convenience) and will change
-- it to the abbreviated date format.

on doDate
  put last word of the target into fld
  get bkgnd field id fld
  if it is not empty then
    if char 1 of it is in "0123456789" then
      put "/" & bkgnd field year after it
    else
      if not (it contains ",") then put "," & bkgnd field year after it
    end if
    convert it to abbrev date
    get item 2 to 3 of it
    delete char 1 of it
    put it into bkgnd field id fld
  end if
end doDate

-- doCheck -- Deal with the check mark in the T column.

on doCheck
  put the id of the target into mine
  if field id mine is empty then get "‚àö"
  else get empty
  put it into field id mine
end doCheck



-- part 103 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=31 right=46 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: BalFwd
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=46 right=68 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: FirstNbr


-- part 16 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=46 right=68 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 1 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=46 right=68 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 17 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=46 right=68 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: FirstPay
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 20 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=46 right=68 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 18 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=46 right=68 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: FirstDep
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 19 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=46 right=68 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: FirstBal


-- part 21 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=67 right=89 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: SecondNbr


-- part 33 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=67 right=89 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 2 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=67 right=89 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 46 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=67 right=89 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 58 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=67 right=89 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp


-- part 71 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=67 right=89 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 83 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=67 right=89 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 22 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=88 right=110 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 34 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=88 right=110 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 3 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=88 right=110 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 47 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=88 right=110 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 59 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=88 right=110 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 72 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=88 right=110 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 84 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=88 right=110 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 23 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=109 right=131 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 35 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=109 right=131 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 4 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=109 right=131 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 48 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=109 right=131 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 60 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=109 right=131 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 73 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=109 right=131 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 85 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=109 right=131 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=130 right=152 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 36 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=130 right=152 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 5 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=130 right=152 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 49 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=130 right=152 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 61 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=130 right=152 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 74 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=130 right=152 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 86 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=130 right=152 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 25 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=151 right=173 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 37 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=151 right=173 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 6 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=151 right=173 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 50 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=151 right=173 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 63 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=151 right=173 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 75 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=151 right=173 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 87 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=151 right=173 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 26 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=172 right=194 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 38 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=172 right=194 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 7 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=172 right=194 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 51 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=172 right=194 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 64 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=172 right=194 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 76 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=172 right=194 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 88 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=172 right=194 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 27 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=193 right=215 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 39 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=193 right=215 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 8 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=193 right=215 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 52 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=193 right=215 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 65 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=193 right=215 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 77 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=193 right=215 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 89 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=193 right=215 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 28 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=214 right=236 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 40 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=214 right=236 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 9 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=214 right=236 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 53 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=214 right=236 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 66 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=214 right=236 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 78 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=214 right=236 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 90 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=214 right=236 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 29 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=235 right=257 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 42 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=235 right=257 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 10 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=235 right=257 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 54 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=235 right=257 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 67 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=235 right=257 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 79 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=235 right=257 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 91 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=235 right=257 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 30 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=256 right=278 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 43 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=256 right=278 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 11 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=256 right=278 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 55 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=256 right=278 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 68 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=256 right=278 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 80 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=256 right=278 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 92 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=256 right=278 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 31 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=277 right=299 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 44 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=277 right=299 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 12 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=277 right=299 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 56 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=277 right=299 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 69 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=277 right=299 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 81 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=277 right=299 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 93 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=277 right=299 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 32 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=0 top=298 right=320 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: LastNbr


-- part 45 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=44 top=298 right=320 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:
----- HyperTalk script -----
on closeField
  doDate
end closeField



-- part 13 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=96 top=298 right=320 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name:


-- part 57 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=251 top=298 right=320 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 70 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=336 top=298 right=320 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on mouseUp
  doCheck
end mouseUp



-- part 82 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=350 top=298 right=320 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:
----- HyperTalk script -----
on closeField
  calculate
end closeField


-- part 94 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=431 top=298 right=320 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name:


-- part 98 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=250 top=320 right=342 bottom=288
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go to first card
end mouseUp



-- part 99 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=305 top=320 right=342 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe down
  go to previous card of this bkgnd
end mouseUp


-- part 100 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=359 top=320 right=342 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe up
  go to next card of this bkgnd
end mouseUp


-- part 101 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=411 top=320 right=342 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 29903 / 29903
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last
----- HyperTalk script -----
on mouseUp
  visual effect wipe up
  go to last card
end mouseUp



-- part 102 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=465 top=320 right=342 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 105 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=20 right=35 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: Year


-- part 106 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=2 top=323 right=340 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check Writer
----- HyperTalk script -----
on mouseUp
  go to stack "Check Writer"
end mouseUp




-- part 107 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=101 top=323 right=340 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blank Page
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
end mouseUp



-- part 108 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=185 top=323 right=340 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Today
----- HyperTalk script -----
on mouseUp
  get item 2 to 3 of the abbrev date
  delete first char of it
  type it
  tabKey
end mouseUp